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; Detailed Current Edit History 


ARATI 
IMAGE_INISHR = Linkable image initialization dispatcher 
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- TITLE ht al tata ; Shareable {none initialization 
-IDENT ‘V04-00 ; File: LIBINISHR.MAR 


~PARAARARAAALAAAAALALAALALALALALEL AAAS ASA ASS SEES E EE EERE RRR SASS EE EERE RRR SESS 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


* 
* 
* 
* 
* 
« 
* 
‘ 
* 
® 
TRANSFERRED. * 
* 
. 
4 
* 
* 
® 
* 
* 
4 
* 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
aepoRat ite NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPCNSIBI 
SOFTWARE ON EQUIPMENT WHICH I 
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LITY FOR THE USE OR RELIABILITY OF ITS 
S NOT SUPPLIED BY DIGITAL. 
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FACILITY: RUN-TIME UTILITY PROCEDURE LIBRARY 


ENVIRONMENT: User mode - not re-entrant. 
Called only once per image activation. 


ABSTRACT: 


LIBSIMAGE_INISHR is a software architecture procedure which permits any 
Linkable Tshareable) image to specify an initialization procedure 
to be called before the image is activated. 


The initialization procedure can perform any once per-image activation 
initialization which cannot be performed by the usual compile-time and 
Link-time static data initialization. 


VERSION: 0 
-SBTTL HISTORY ; Detailed Current Edit History 
HISTORY: 
AUTHOR: Alan D. Eldridge 6-Apr-1984 
Stolen from LIBSINITIALIZE 
MODIFIED BY: 


Bete Se Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Se Sete tee 
o 


NAA WN OS OO NAW WN SO OD NAME WIN @§ OO ONAULS WN O OONAUES WH (OOOO S Ut 


SOOO OSOOSOSOOCOOCOCOOOOOOSSOSSOSSSSSSOoooooooooooosooooo 


Pea eas ai gi ai al nt ot at at ot at ot at at mee 


0 
: 
0 


LABS JAAGE_INISHR 


renee feable 


0000 


ima 
3; Deta 


fe 


55 


initializa 
d Current 


E190 wistory “SEB 99:48:82 


AX/VMS 
LIBRTL.S 


SReser 


04-00 p 
Pnregr.mans1 2%" ¢9) 


=e 


PSECT DECLARATIONS: 


~~ 


J 15 

LIBSIMAGE_INISHR ; Shareable image initialization 16-SEP-1984 00:10:43 VAX/VMS Macro Vv04-00 Page L! 
Loe BECLARATIONS ° yaa 7 90:08:68 LIBRTL.SRCJLIBINISHR.MAR; 1 . 3) $} 
Ci 
ef -SBTTL DECLARATIONS c 
é4 ; INCLUDE FILES: B 
66 : It 
? 3; EXTERNAL SYMBOLS: | 
63 : -DSABL GBL ; Force .EXTRN declarations for externals + 
: j S/ 
re MACROS $] 

74 


The following psects bracket the table within the Linkable image. ALL 
table entries within the image should be made via a .ADDRESS <-- fixup 
eres just before LIBSIMAGE_INISHR (and hence the table entries) is 
called. 


SOOQOOOOCOSOOSOSOOSOOOSOOOOSOOOSOSO 
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Ff SLOOOCOOCOCOSSSSOSSOSSSOSOSOSSOSOSOOOSCOOO OOOO OOOOOOOOO 
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-PSECT LIBSIMAGE_INISHQZ NOPIC,USR,CON,REL,GBL,NOSHR ,NOEXE ,RD,NOWRT,LONG 
INIT_TABLE_BEG: ; First entry in table 


SO 0OnNO 


-PSECT LIBSIMAGE_INISHQ_ NOPIC,USR,CON,REL,GBL ,NOSHR,NOEXE,RD,NOWRT,LONG 
; Contribution from OTS$STARTUP 


COooooococSeo 


OOoooooooooooooa 
Mwy 


-PSECT LIBSIMAGE_INISHR NOPIC,USR,CON,REL,GBL .NOSHR,NOEXE,RD,NOWRT,LONG 
3 Contributions from rest of library 
3 and users 


S 
S 


So 
So 
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»PSECT LIBSIMAGE_INISHRS NOPIC,USR,CON,REL,GBL,NOSHR ,NOEXE ,RD ,NOWRT ,LONG 


SOooooooo 


tt 4 § AQOODODOOOOO0O0O00000 00.000 0000 0009 C9 CD CD CD CO I-IN 


; 
100 
00000000 \ 1 INIT_TABLE_END: .LONG 0 3; End of initialization List 
1 4 3; The code for this module 
0004 195 ; 
0004 106 > EQUATED SYMBOLS: 
0004 1 $ 
D004 1 $ 
D004 += 3 3; OWN STORAGE: 
‘tran hh oe 
UU 
0000000 ! § -PSECT _LIBSDATA PIC,USR,CON,REL,LCL.NOSHR ,NOEXE ,RD,WRT 
114 DISP_PTR: : OWN yerjeble containing pointer to 
00000004 ? ! 5 -BLKL 1 : initialization dispatch table 
UU 
00000000 _ +1 5 -PSECT _LIBSCODE_NOSHR PIC,USR,CON,REL,LCL,SHR,EXE,RD,NOWRT 
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FUNCTIONAL DESCRIPTION: 


LIBSIRASE JM SHR is a Library procedure for initializing linkable 
shareable) image procedures and data at run-time which cannot be 
statically at compile-time or Link-time. 


LIBSIMAGE_INISHR is called before the main program if the GLOBAL symbol 
LIBSIMAGE_INISHR is defined, or just after the image is merged via a 
merge/activate sequence. 


The image need only declare LIBSIMAGE_INISHR as an EXTERNAL (the 
compiler generates EXTERNAL OTSSLINKAGE which generates the EXTERNAL 
LIBSIMAGE_INISHR). LIBSIMAGE_INISHR calls every entrypoint contributed 
to PSECT CIBSINITIALIZE. 
Note 

This procedure is not re-entrant. It can only be called 

once per image activation as currently coded. 

CALLING SEQUENCE: 


Status.wlc.v = LIBSIMAGE_INISHR () 
INPUT PARAMETERS: 
NONE 
IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 


COMPLETION CODES: 
SS$_NORMAL 
SIDE EFFECTS: 
NONE 
ENTRY LIBSIMAGE_INISHR, “M<IV>; entry point and entey mask 
: qnabie integer overflow 


MOVAL INIT_TABLE_BEG, - ; initialize OWN storage (DISP_PTR) 
DISP_PTR ; to first address of user/library 


OOoOoQooooooooooooococoooo 
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00000000'EF  OO000000'EF ODE 
20$: 


Loop to scan table of user and Library initialization procedure 
starting addresses in PSECT LIBSIMAGE_INISH... 
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@DISP_PTR, RO 
508 


R1 

(AP), (RO) 
#4, ,DISP_PTR 
208 
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RO = next user/Library initialization 


; procedure address 
; zero means end of bige 
; ag environmen 


call next enters te init proc. 
step dispatch pointer to next 
a" proc. address 

Setup return status in case our 
oe needs it someday 

one 


End of module LIBSIMAGE_INISHR 
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Symbol table -SEP-1984 11:08:06 CLIBRTL.SRCILIBINISHR.MAR;1 
DISP_PTR R 5 
INIT TABLE _BEG © 1 
INIT_TABLE_END 4 
LIBSTMAGE_TNISHR RG 

wencecen sean ana naman > 

! Psect synopsis H 
PSECT name Allocation PSECT No. Attributes 
- ABS 608 8 ( = 9 ( 9-3 NOPIC USR CON S$ LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
LIBSIMAGE_INISHQZ ( ) ( 1.) NOPIC USR CON REL GBL NOSHR NOEXE RD NOWRT NOVEC LONG 
LIBSIMAGE_INISHQ_ 00000 ( ) ¢ ( ¢°3 NOPIC USR CON REL GBL NOSHR NOEXE RD NOWRT NOVEC LONG 
LIBSIMAGE_INISHR 00000 ( = ( -) NOPIC USR CON~ REL L NOSHR NOEXE RD NOWRT NOVEC LONG 
LIBSIMAGE_INISHRS 000004 ( 4.) 04 ¢ 4.) NOPIC USR CON REL GB R NOEX RD NOWRT NOVEC LONG 
_LIBSDATA 0000004 ¢ 6.) 9 ¢ 9.3 PIC USR CON REL LCL NOSHR NOEXE' RD WRT NOVEC BYTE 
_LIBSCODE_NOSHR 00000028 ( 40.) O06¢ 6.) PIC USR CON REL LCL R EXE RD NOWRT NOVEC BYTE 

GreneneeiebnneeEennNet 
! Performance indicators ; 

Phase Page faults CPU Time Elapsed Time 
Initialization 30 00:00:00. 4 00:00:00.8 
Command processing 10 +f 700.31 00:00:02.5 
Pass 1 65 8208! 0.35 00:00:01.95 
Symbol table sort 0 00:00: 3-38 00:00:00.00 
Pass 2 50 Ss SE 00:00:01.98 
Symbol table output 2 :00:00.01 0:00:00.01 
Psect synopsis output 4 Bp 228: 0.03 Bae Be 
Cross-reference output 0 0:00:00.00 0:00:00.00 
Assembler run totals 256 00:00:00.97 00:00:07.56 


The working set Limit was 900 pages. 

1923 bytes (4 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 4 non-local and 2 local symbols. 
190 source Lines were read in Pass 1, produc ing 20 object records in Pass 2. 

0 pages of virtual memory were used to define 0 macros. 


See onan ssea nace mawnnaunme + 


Macro library name Macros defined 
“S255SDUAZ8:(SYSLIBISTARLET.MLB:2 0 SS” t. 
0 GETS were required to define 0 macros. 

There were no errors, warnings or information messages. 


MACRO/ENABLE=SUPPRESSION/P i SABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:LIBINISHR/OBJ=0BJ$:LIBINISHR MSRC$:LIBINISHR/UPDATE=(ENHS:LIBINISHR) 
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